home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / xlisp2.1 / xldist01.zoo / lsp / logic.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1990-11-09  |  328 b   |  14 lines
  1. (defun intersect (x y)
  2.     (do    ((first x  (cdr first))
  3.          (result NIL (if (member (car first) y) 
  4.                   (cons (car first) result)
  5.                  result)))
  6.         ((null first) result)))
  7.  
  8. (defun union (x y)
  9.     (do    ((first x  (cdr first))
  10.          (result y (if (member (car first) y)
  11.                  result
  12.                 (cons (car first) result))))
  13.         ((null first) result)))
  14.